﻿
#Const xhtml_1_1 = True

Imports System.IO
Imports xmlctrl

Public Class htmlbase
    Inherits xhtmlControl

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff, "html")
    End Sub

    Public Property version() As CDATA
        Get
            Return attribute("version")
        End Get
        Set(ByVal value As CDATA)
            attribute("version") = value
        End Set
    End Property

    Protected Property xmlns() As String
        Get
            Return attribute("xmlns")
        End Get
        Set(ByVal value As String)
            attribute("xmlns") = value
        End Set
    End Property

    Protected Property xmlns_xsi() As String
        Get
            Return attribute("xmlns:xsi")
        End Get
        Set(ByVal value As String)
            attribute("xmlns:xsi") = value
        End Set
    End Property

    Protected Property xsi_schemaLocation() As String
        Get
            Return attribute("xsi:schemaLocation")
        End Get
        Set(ByVal value As String)
            attribute("xsi:schemaLocation") = value
        End Set
    End Property
End Class

Public Class html
#If xhtml_1_1 Then
    Inherits html_xhtml_1_1
#End If

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff)
    End Sub

End Class
